home *** CD-ROM | disk | FTP | other *** search
/ B Soft 1 / B-Soft_1_19xx_Maik__Mike_de_Side_A.d64 / sack ab (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  128 lines
  1. 0 poke808,254:poke53280,14:poke53281,6
  2. 2 printchr$(142),chr$(8)"[147][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  3. 3 print"[145] sack ab: ein kleines brutales spiel":print
  4. 4 print" von mr. joker! geh' so dicht wie moeg-":print
  5. 5 print" lich an den hai 'ran und piss ihm in":print
  6. 6 print" seine fresse (feuer druecken)! aber":print
  7. 7 print" pass auf! viel druck! und viel spass!"
  8. 8 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  9. 9 geta$:ifa$=""then9
  10. 10 v=53248:x=30:j=56321
  11. 11 print"[147]":print
  12. 20 print"                  "
  13. 30 print"                    [213][195][215]"
  14. 40 print"                    [202][174][170][205]"
  15. 50 print"                     [173][174][170][205]  [206][208]
  16. 60 [153]"                      /^+(NULL)(NULL) +"
  17. 90 [153]"                    (NULL)>>(NULL)  andandsqr
  18. 100 print"                   [201][202][201][201][201][201][201][201][201][201][201][201]"
  19. 106 print"                          "
  20. 110 pokev+21,4:poke2042,13
  21. 120 forn=0to62:readq:poke832+n,q:next
  22. 121 j=56321
  23. 122 if peek(j)=251 then x=x- 5:pokev+4,x:pokev+5,100
  24. 130 ifx<5then print" feigling":x=30:forx=1to500:nextx:run10
  25. 150 if peek(j)=247 then x=x+ 5:pokev+4,x:pokev+5,100
  26. 155 ifx>175thengoto500
  27. 160 goto122
  28. 200 print"[147]":pokev+4,0
  29. 210 print" "
  30. 220 print" "
  31. 230 print" "
  32. 240 print"                   * * * * **"
  33. 250 print"                   * [209]*[154]*[205]**[170]"
  34. 260 print"                * **[178]*[154][178][203]*[175]*[186]
  35. 270 [153]"                  right$right$*right$*right$right$right$*right$right$right$"
  36. 280 [153]"                              "
  37. 300 si[178]54272:fl[178]si:fh[178]si[170]1:tl[178]si[170]2:w[178]si[170]4:a[178]si[170]5:h[178]si[170]6:l[178]si[170]24
  38. 310 [129]i[178]15[164]0 [169][171]1
  39. 320 [151]l,i:[151]a,15:[151]h,0:[151]fh,40:[151]fl,200:[151]w,129
  40. 330 [130]
  41. 340 [151]w,0:[151]a,0
  42. 350 [153]"load"
  43. 360 [153]" "
  44. 365 [153]" "
  45. 370 [153]" "
  46. 375 [153]"                   *  * ** * "
  47. 380 [153]"                 * ****usr*(NULL) *+"
  48. 383 [153]"                 * * =**(NULL)*and*sqr*
  49. 385 print"                * *[201]*[201]*[201]*[201]*[201]*[201]"
  50. 387 print"                 [209] [209] [209][209][209] [209][209] "
  51. 389 print"                   [209] [209][209] [209] [209]":print"[154]":forz=1to200:nextz
  52. 390 pokev+4,0
  53. 400 print"[147]"
  54. 410 print" "
  55. 420 print" "
  56. 430 print" "
  57. 440 print"                           [206][208]"
  58. 450 print"                    [213][195][215][183][183][205][206] [170]"
  59. 460 print"                    [171][178][178][154][178][178][154][203][175][175][186]
  60. 470 [153]"                  right$right$right$right$right$right$right$right$right$right$right$right$"
  61. 480 [153]"                              ":[129]x[178]1[164]400:[130]x :[138]  9
  62. 500 [139]x[177]180 [167] [137]200
  63. 501 um[178]0
  64. 503 [129]x[178]1[164]50:[130]x:[139][194](j)[178]239[167] [137]510
  65. 504 [129]x[178]1[164]50:[130]x:[139][194](j)[178]239[167] [137]510
  66. 505 [129]x[178]1[164]50:[130]x:[139][194](j)[178]239[167] [137]510
  67. 506 [137]200
  68. 510 [139] [194](j)[178]239 [167] [137]530
  69. 520 [137]122
  70. 530 [153]"load"
  71. 540 [153]:[153]
  72. 542 [153]"                        (NULL)len(NULL)"
  73. 544 [153]"                        mid$^+(NULL)"
  74. 546 [153]"                         /^+(NULL)  (NULL)(NULL)
  75. 548 print"                       [205]/ [173][174][170][205][206] [170]"
  76. 550 print"                    ----[213][177][177][203]  [175][175][186]
  77. 560 [153]"                      //mid$right$right$right$right$right$right$right$right$right$right$"
  78. 570 [153]"                              "
  79. 630 [153]"load"
  80. 640 [153]:[153]
  81. 642 [153]"                            (NULL)len(NULL)"
  82. 644 [153]"                            mid$^+(NULL)"
  83. 646 [153]"                             /^+(NULL)  (NULL)(NULL)"
  84. 648 [153]"                            (NULL)(NULL)/^+(NULL)(NULL) +"
  85. 650 [153]"                    --------(NULL)>>(NULL)  andandsqr
  86. 660 print"                           /[202][201][201][201][201][201][201][201][201][201][201]"
  87. 670 print"                              "
  88. 730 print"[147]"
  89. 740 print:print
  90. 742 print"                                [213][195][215]"
  91. 744 print"                                [202][174][170][205]"
  92. 746 print"                                 [173][174][170][205]  "
  93. 748 print"                               [205][205] [173][174][170][205][206]"
  94. 750 print"                    ------------[213][177][177][203]  [175]"
  95. 760 print"                              //[202][201][201][201][201][201][201]"
  96. 770 print"                              "
  97. 830 print"[147]"
  98. 840 print:print
  99. 842 print"                                    [213][195][215]"
  100. 844 print"                                    [202][174][170]"
  101. 846 print"                                     [173][174]"
  102. 848 print"                                  [205][205]  [173]"
  103. 850 print"                    ----------------[213][177][177]"
  104. 860 print"                                  //[202][201][201]"
  105. 870 print"                              "
  106. 930 print"[147]"
  107. 940 :
  108. 942 print"                                   "
  109. 944 print"                                   "
  110. 946 print"                                   "
  111. 948 print"                                   "
  112. 950 print"                                   "
  113. 960 print"                                   "
  114. 970 print"                      fick dich, du hai!":forx=1to2000:nextx
  115. 975 print"[147][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  116. 980 print" du hast es mit deinem doedel geschafft"
  117. 990 print" dem hai eins auszuwischen! du kommst"
  118. 1000 print" in die hi-score!"
  119. 1005 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][145][145][145]"
  120. 1010 input" name";as$
  121. 1020 forx=1to1500:nextx:run
  122. 5000 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  123. 5010 data0,0,62,255,255,193,0,0,3
  124. 5020 data0,0,13,1,255,193,1,128,62
  125. 5030 data0,128,0,128,64,0,64,64,0
  126. 5040 data64,128,0,33,0,0,62,0,0
  127. 5050 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  128.